object frmCheque: TfrmCheque
  Left = 401
  Top = 221
  Width = 327
  Height = 217
  Caption = 'Datos del cheque'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    319
    187)
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 4
    Top = 7
    Width = 105
    Height = 13
    Caption = 'Fecha de Emisi'#243'n:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 4
    Top = 49
    Width = 95
    Height = 13
    Caption = 'Fecha de Cobro:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 4
    Top = 91
    Width = 41
    Height = 13
    Caption = 'Banco:'
    FocusControl = cmbBanco
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 4
    Top = 135
    Width = 47
    Height = 13
    Caption = 'Importe:'
    FocusControl = edtImporte
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 161
    Top = 49
    Width = 91
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'N'#250'mero Cheque'
    FocusControl = edtNum
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 161
    Top = 7
    Width = 84
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'CUIT Librador:'
    FocusControl = edtCUIT
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 288
    Top = 108
    Width = 23
    Height = 22
    Anchors = [akTop, akRight]
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object btnGrabar: TSpeedButton
    Left = 222
    Top = 150
    Width = 89
    Height = 26
    Anchors = [akTop, akRight]
    Caption = 'Grabar'
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    OnClick = btnGrabarClick
  end
  object edtFechaEmi: TDBDateEdit
    Left = 4
    Top = 23
    Width = 119
    Height = 21
    DataField = 'FECHA_EMISION'
    DataSource = sCheque
    NumGlyphs = 2
    TabOrder = 0
  end
  object edtFechaCob: TDBDateEdit
    Left = 4
    Top = 65
    Width = 119
    Height = 21
    DataField = 'FECHA_COBRO'
    DataSource = sCheque
    NumGlyphs = 2
    TabOrder = 1
  end
  object cmbBanco: TDBLookupComboBox
    Left = 4
    Top = 107
    Width = 277
    Height = 24
    Anchors = [akLeft, akTop, akRight]
    DataField = 'banco'
    DataSource = sCheque
    TabOrder = 4
  end
  object edtImporte: TDBEdit
    Left = 4
    Top = 151
    Width = 96
    Height = 24
    DataField = 'IMPORTE'
    DataSource = sCheque
    TabOrder = 5
  end
  object edtNum: TDBEdit
    Left = 161
    Top = 64
    Width = 151
    Height = 24
    Anchors = [akTop, akRight]
    CharCase = ecUpperCase
    DataField = 'NUMERO'
    DataSource = sCheque
    TabOrder = 3
  end
  object edtCUIT: TDBEdit
    Left = 161
    Top = 23
    Width = 151
    Height = 24
    Anchors = [akTop, akRight]
    DataField = 'CUIT'
    DataSource = sCheque
    TabOrder = 2
  end
  object nv: TDBNavigator
    Left = 124
    Top = 151
    Width = 87
    Height = 25
    DataSource = sCheque
    VisibleButtons = [nbInsert, nbPost, nbCancel]
    TabOrder = 6
  end
  object sCheque: TDataSource
    DataSet = cdsCheque
    OnStateChange = sChequeStateChange
    Left = 232
  end
  object cdsBanco: TSQLClientDataSet
    Active = True
    CommandText = 
      'select  ID_BANCO, BANCO||'#39' (SUC: '#39'|| SUCURSAL||'#39')'#39' as banco from' +
      ' BANCO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 232
    Top = 32
    object cdsBancoID_BANCO: TSmallintField
      FieldName = 'ID_BANCO'
      Required = True
    end
    object cdsBancoBANCO: TStringField
      FieldName = 'BANCO'
      Size = 106
    end
  end
  object cdsCheque: TSQLClientDataSet
    CommandText = 'select * '#13#10'from CHEQUE'#13#10'where ID_CHEQUE = :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    OnNewRecord = cdsChequeNewRecord
    DBConnection = Datos.Con
    Left = 264
    Top = 32
    object cdsChequeID_CHEQUE: TIntegerField
      FieldName = 'ID_CHEQUE'
      Required = True
    end
    object cdsChequeID_BANCO: TSmallintField
      FieldName = 'ID_BANCO'
      Required = True
    end
    object cdsChequeFECHA_EMISION: TSQLTimeStampField
      FieldName = 'FECHA_EMISION'
      Required = True
    end
    object cdsChequeFECHA_COBRO: TSQLTimeStampField
      FieldName = 'FECHA_COBRO'
      Required = True
    end
    object cdsChequeCUIT: TStringField
      FieldName = 'CUIT'
      EditMask = '00-00000000-0'
      Size = 15
    end
    object cdsChequeIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      Required = True
      DisplayFormat = '#,##0.00'
    end
    object cdsChequebanco: TStringField
      FieldKind = fkLookup
      FieldName = 'banco'
      LookupDataSet = cdsBanco
      LookupKeyFields = 'ID_BANCO'
      LookupResultField = 'BANCO'
      KeyFields = 'ID_BANCO'
      Size = 50
      Lookup = True
    end
    object cdsChequeNUMERO: TStringField
      FieldName = 'NUMERO'
    end
  end
end
